home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 7 / FM Towns Free Software Collection 7.iso / t_os / mer_fnt / pa_test.bas < prev    next >
BASIC Source File  |  1993-11-30  |  634b  |  23 lines
  1. 10000 ' pa_test.bas    93/07/25    by TEMITORAVIOS
  2. 10300 '
  3. 10400 CLEAR ,,,120000,,300*1024 
  4. 10500 DEFINT A-Z
  5. 10600 DIM TW%(55296)
  6. 10650 DEF FONT "システム   12ﾄﾞｯﾄ"
  7. 10700 '
  8. 10750 CLS
  9. 11200 LOAD@ "g:\sysinit\system.fnt",TW%
  10. 11300 AD = 6600
  11. 11400 FOR I = 0 TO 12*15
  12. 11700     TW%(I) = TW%(AD + I)
  13. 11800 NEXT
  14. 12000 PUT@(0,0)-(11,12*15-1),TW%
  15. 12100 SYMBOL (50,0),"ハバパヒビピフブプヘベペホボポ",12/16,12/16
  16. 12105 AD = 5472
  17. 12110 FOR I = 0 TO 12*15
  18. 12120     TW%(I) = TW%(AD + I)
  19. 12130 NEXT
  20. 12140 PUT@(20,20)-(31,20+12*15-1),TW%
  21. 12150 SYMBOL (60,20),"はばぱひびぴふぶぷへべぺほぼぽ",12/16,12/16
  22. 12200 I$ = INPUT$(1)
  23.